#!/usr/bin/perl

=head1 NAME

Test cases for AFX::ACF

=cut

##############################################################################
# Globals
#
use lib 'lib';
use strict;
use warnings;

use Test;

## BEGIN block
BEGIN { plan tests => 12 }

## Load module
use AFX::ACF;

## Helpful notes.  All note-lines must start with a "#".
print "# Checking AFX::ACF version $AFX::ACF::VERSION\n";

## Open ACF
my $acf = new AFX::ACF;

## Check all site's passwords
ok( $acf->check_site_passwd() );

## Try to encrypt all non-encrypted passwords
ok( $acf->encrypt_passwd() );

## Find ASF
ok ($acf->find_asf());

## Find ATF/SFT
ok ($acf->find_atf('template', ""));

## Find ATF/SFT
ok ($acf->find_atf('scenario', ""));
 
## Get ACF machine for LNX
ok ($acf->get_machine('LNX'));

## Get ACF process for audit
ok ($acf->get_process('audit'));

## Get ACF prompt for root
ok ($acf->get_prompt('root'));

## Get ACF terminal for telnet
ok ($acf->get_terminal('telnet'));

## Check Site File
ok($acf->open_sitefile(), 'TEST');

## Try to purge old files
ok($acf->purge());

## Try to update ACF
ok(!$acf->update());
